home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1993 / 5 / 02 / amos / replace.asc < prev    next >
Encoding:
Text File  |  1995-06-01  |  346 b   |  25 lines
  1. Reserve As Work 10,L
  2. Bload F$,10
  3. '
  4. Dim F(12,2)
  5. For I=1 To 12
  6.    Read F(I,1)
  7.    Read F(I,2)
  8. Next I
  9. '
  10. _ENDE=Start(10)+Length(10)
  11. '
  12. For I=1 To 12
  13.    _START=Start(10)
  14.    S$=Chr$(F(I,1))
  15.    Do 
  16.       G=Hunt(_START To _ENDE,S$)
  17.       Poke G,F(I,2)
  18.       _START=G
  19.       Exit If G=0
  20.    Loop 
  21. Next I
  22. '
  23. Bsave F2$,Start(10) To Start(10)+Length(10)
  24. Erase 10
  25.